home *** CD-ROM | disk | FTP | other *** search
/ Clickx 23 / Clickx 23.iso / Menu.dcr / 00021_knop_install.ls < prev    next >
Encoding:
Text File  |  2005-09-14  |  1.8 KB  |  56 lines
  1. property pFile
  2.  
  3. on mouseEnter me
  4.   sprite(me.spriteNum).member = "install_knop_R"
  5. end
  6.  
  7. on mouseLeave me
  8.   sprite(me.spriteNum).member = "install_knop_N"
  9. end
  10.  
  11. on mouseDown me
  12.   sprite(me.spriteNum).member = "install_knop_D"
  13. end
  14.  
  15. on mouseUp me
  16.   if the platform contains "windows" then
  17.     dirChar = "\"
  18.   else
  19.     dirChar = ":"
  20.   end if
  21.   if pFile = "PhotoSuite5SE.exe" then
  22.     if the runMode contains "Author" then
  23.       if the platform contains "Windows" then
  24.         window().new("info")
  25.         window("info").titlebarOptions.closebox = 1
  26.         window("info").open()
  27.       end if
  28.     end if
  29.   end if
  30.   sprite(me.spriteNum).member = "install_knop_N"
  31.   if pFile <> EMPTY then
  32.     case pFile.word[1] of
  33.       "<dir>":
  34.         go(pFile.word[3], the moviePath & pFile.word[2])
  35.       "<save>":
  36.         desktop = baSysFolder("desktop")
  37.         the itemDelimiter = dirChar
  38.         destination = baGetFilename("save", desktop, the last item in pFile.word[2], "All files|*.*", 0, "Opslaan als", 0, 100, 100)
  39.         baCopyFile(the moviePath & "data" & dirChar & pFile.word[2], destination, "IfNotExist")
  40.       otherwise:
  41.         if member("install text").text = "Opslaan als" then
  42.           savefolder = baGetFolder("c:\temp", "Selecteer een folder om te bewaren:", 1, "Selecteer een folder", -1, 0)
  43.           put savefolder
  44.           Ok = baCopyFile(the moviePath & "DATA" & dirChar & "CARTOONS" & dirChar & pFile, savefolder & pFile, "Always")
  45.         else
  46.           if (member("titel_groep").text = "Webtools: blogging") and (pFile = "wordpress/wp.exe") then
  47.             baOpenURL(the moviePath & "DATA" & dirChar & "wordpress", "maximised")
  48.             baOpenFile(the moviePath & "DATA" & dirChar & pFile, "normal")
  49.           else
  50.             baOpenFile(the moviePath & "DATA" & dirChar & pFile, "normal")
  51.           end if
  52.         end if
  53.     end case
  54.   end if
  55. end
  56.